program ej;
const linea = 10, columnaA = 10, columnaB = 1;
begin
  cpcMode(0);
  pen(2);
  paper(1);
  locate(columnaA, linea);
  writeChar( 'a' );
  pen(4);
  paper(3);
  locate ( columnaB ,  linea );
  writeChar('c');
end.
